home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / hell.p < prev    next >
Text File  |  1990-02-23  |  607b  |  30 lines

  1. program hello(input,output);
  2. {const
  3.    txt1 = "Hello world!";
  4.    pie = 3.141569;
  5.    einhalb = 0.5;
  6. }type
  7.    farbe = (karo, herz, pik, kreuz);
  8.    point = record
  9.               x,y : integer;
  10.            end;
  11. var
  12.    i, j: integer;
  13.    ia: array [2..5] of array [0..4] of integer;
  14.    r: real;
  15.    karte: farbe;
  16.    start: point;
  17. begin
  18.   i := start.x;
  19.   j := ia [i+3][j] - j;
  20.   karte := herz;
  21.   i := 17+4+3+8-(2*3);
  22.   j := 2*i;
  23.  { r := 17.0+4.0+3.0+8.0-(2.0*3.0);
  24.   writeln(txt1);
  25.   writeln("i =",i,"   j =",j);
  26.   writeln("r =",r);
  27.   writeln(output,"Nun dies :",17,24.9,17+4,17.5+3.5);
  28.   writeln("Pie =",pie);
  29. }end.
  30.